0 POKE646,0:POKE53280,12:POKE53281,12
1 REM ==================================
2 REM COMMODARES PROBLEM #40-3 :
3 REM    POLYGON PLAY
4 REM SOLUTION BY
5 REM    JOE STEININGER
6 REM ==================================
10 PRINT"[147]HOW MANY SIDES"
20 INPUT N:IF N<3 GOTO 20
30 PRINT"LENGTH OF EACH SIDE, IN METERS"
40 INPUT L
50 A=((N-2)/N)*180
60 S=A*N
70 R=(L/2)*(1/TAN((null)/N))
80 D=(L/2)*(1/SIN((null)/N))
90 Y=N*(L^2)/4*(1/TAN((null)/N))
100 PRINT"INTERIOR ANGLES ARE ";A;"DEGREES EACH":PRINT
110 PRINT"SUM OF INTERIOR ANGLES IS ";S;"DEGREES":PRINT
120 PRINT"THE AREA IS ";Y;"SQUARE METERS":PRINT
130 PRINT"INSCRIBED RADIUS IS ";R;"METERS":PRINT
140 PRINT"CIRCUMSCRIBED RADIUS IS ";D;"METERS":PRINT:PRINT